﻿Public Class ContentXmlAttr
    Inherits MysteryDefaultClassAttribute

    Public Property implementing_type As Type


    Dim generic_impl As Type = GetType(DefaultContentXml(Of ))
    Dim generic_int As Type = GetType(IContentXml)
    Dim _activator As IActivator

    Public Overrides Sub setUp()

        If implementing_type IsNot Nothing Then
            implementing_type.GetInterfaceMap(generic_int)
        Else
            implementing_type = generic_impl.MakeGenericType(used_in)
        End If

        _activator = getGlobalObject(Of FastActivator).getActivator(implementing_type)

    End Sub

    Public Function getXmler() As IContentXml
        Return _activator.createInstance
    End Function
End Class
